

Class list(init)
L := init;

Car := proc(a) return := car(L) end;
Cdr := proc(a) return := cdr(L) end;
Sss := proc(a,b) return := a+b end;
getL := proc(a) return := L end
end;

Class myList(init):list
m:=init;
Cons := proc(x) return := cons(x,L) end;
Sss := proc(a,b) return := a+b+1 end;
getM := proc(a) return := m end
end;



L := myList([1]);


M := L.getL(1);
aa := L.getM(1);
N := L.Sss(1,2);
K := L.Cons(2);
Z := L.Car(1)



